home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / fd200.zip / MAKIMAGE.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1987-04-08  |  958 b   |  39 lines
  1. program makimage;
  2. var  screen1 : array[0..4095] of byte;
  3.      screen2 : array[0..4095] of byte;
  4.      video   : array[0..3999] of byte ABSOLUTE $B800:0000;
  5.      inputfile : text;
  6.      outputfile : file;
  7.      line : string[80];
  8.      i : integer;
  9. begin
  10.   assign(inputfile,'FDSCRN1');
  11.   assign(outputfile,'FIELDDAY.IMG');
  12.   ClrScr;
  13.   reset(inputfile);
  14.   rewrite(outputfile);
  15.   i := 0;
  16.   while (NOT Eof(inputfile)) do
  17.   begin
  18.     i := i + 1;
  19.     readln(inputfile,line);
  20.     if i <> 25 then writeln(line) else write(line);
  21.   end;
  22.   move(video, screen1, 4000);
  23.   blockwrite(outputfile, screen1, 32);
  24.   ClrScr;
  25.   close(inputfile);
  26.   assign(inputfile,'FDSCRN2');
  27.   reset(inputfile);
  28.   i := 0;
  29.   while (NOT Eof(inputfile)) do
  30.   begin
  31.     i := i + 1;
  32.     readln(inputfile,line);
  33.     if i <> 25 then writeln(line) else write(line);
  34.   end;
  35.   move (video,screen2,4000);
  36.   blockwrite(outputfile,screen2,32);
  37.   close(outputfile);
  38. end.
  39.